CDUTIL 13/CDUTIL #13 Julio 1995.iso/windows/amipro3/macros.cmz/FIT2SCRN.SMM

INI File | 1992-11-18 | 4.1 KB | 312 lines

[ver]
    4
[sty]
    _macro.sty
[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    Apple LaserWriter Plus
[port]
    LPT1:
[lang]
    1
[desc]
    Ajusta la vista del documento a la pantalla.
    Lotus WPD
    Advanced
    API Calls
    autorun
    714877372
    12
    704844403
    182
    1
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[ParaNum]
    1
[tag]
    Est<\a>ndar
    5
    [fnt]
        Tms Rmn
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        17
        0
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        24
        1
        2
        ,
        .
        Pts
    Est<\a>ndar
    0
    0
[l1]
    0
[pg]
    1
    47 0 13 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#293,9025>Macro by <+!>Charlie Pappas, Peyton McManus and David Zoller<-!>

<:#279,9025>

<:#279,9025>define GetClientRect(hWnd, lpRect) dllcall("user,GetClientRect,HHN", %1, %2)

<:#279,9025>define Getfocus() DllCall("user,GetFocus,H")

<:#279,9025>define IsOKToRun(menuname)    GetInfo(217, 24, %1);

<:#279,9025>

<:#279,9025>Declare GetLayout()

<:#279,9025>

@Function@<:#293,9025>Function BestView()

<:#279,9025>result=IsOKToRun(CustomView)

<:#279,9025>if result != 1

<:#279,9025>    exit function

<:#279,9025>endif

<:#279,9025>ignorekeyboard(2)

<:#279,9025>CheckMenuItem(1, "Vis&ta", "A&justar a la pantalla", 1)

<:#279,9025>if not CheckMenuItem(1, "Vis&ta", "A&justar a la pantalla", 1)

<:#837,9025>    insertmenuitem(1, "Vis&ta", 1, "A&justar a la pantalla", getrunningmacrofile$(), "Establece el nivel de vista de forma que se pueda ver desde el margen izquierdo al derecho de un documento.")

<:#279,9025>    return 1

<:#279,9025>endif

<:#279,9025>CheckMenuItem(1, "Vis&ta", "A&justar a la pantalla", 0)

<:#279,9025>dim rect(4)

<:#279,9025>Size = GetLayout()

<:#279,9025>getclientrect(getfocus(), &rect)

<:#279,9025>newview = round(((rect(3) / 623) * (9144 / size) * 100))

<:#279,9025>

<:#279,9025>If NewView <;> 10 and NewView << 401

<:#279,9025>    disp=GetProfileString$("AmiPro","Display","AMIPRO.INI")

<:#279,9025>    if disp = ""

<:#279,9025>        disp = 19590

<:#279,9025>    endif

<:#279,9025>    ViewPreferences(Disp,NewView)

<:#279,9025>Endif

<:#279,9025>customview()

<:#279,9025>End Function

<:#279,9025>

<:#279,9025>

@Function@<:#293,9025>FUNCTION GetLayout()

<:#279,9025>ignorekeyboard(2)

<:#279,9025>DefStr pm, WidthTwips, cp, dz;

<:#279,9025>Cnt = GetLayoutParmCnt(ModLayoutRightPage) ' Get number of parameters

<:#279,9025>DIM Stuff(Cnt)'Dimension an array for that amount

<:#279,9025>GetLayoutParameters(ModLayoutRightPage, &Stuff) ' Get the parameters and

<:#279,9025>GetLayoutPageSize(&pm, &WidthTwips, &cp, &dz)

<:#279,9025>LeftMargin=Stuff(1)

<:#279,9025>RightMargin=Stuff(3)

<:#279,9025>getlayout = WidthTwips-LeftMargin-RightMargin

<:#279,9025>END FUNCTION

>

[Embedded]
00003111
>
[macsum] 2
BestView 0 0 6 8
GetLayout 800 0 9 36
[macse]
14 BestView
0 1313 217 24 202
13
8 1
6 1
5 1
18 1
11 00000082
6 0
15
9
0 32 2
0 518 1 "Vis&ta" "A&justar a la pantalla" 1
0 518 1 "Vis&ta" "A&justar a la pantalla" 1
13
1 3
11 00000384
0 802
13
0 527 1 "Vis&ta" 1 "A&justar a la pantalla" [X] "Establece el nivel de vista de forma que se pueda ver desde el margen izquierdo al derecho de un documento."
5 1
15
9
0 518 1 "Vis&ta" "A&justar a la pantalla" 0
5 4
21 2 [X]
16 GetLayout
13
8 3
0 284 "user,GetFocus,H"
13
0 284 "user,GetClientRect,HHN" [X] &2
5 3
22 2
5 623
4 1
5 9144
6 3
4 1
4 0
5 100
4 0
0 786 [X]
13
8 4
6 4
5 10
18 3
6 4
5 401
18 5
1 1
11 00000779
0 286 "AmiPro" "Display" "AMIPRO.INI"
13
8 5
6 5
7 ""
18 0
11 00000758
5 19590
8 5
2 206 1 "{5}" "{4}"
2 202 1
6 0
15
9
14 GetLayout
0 32 2
0 1285 363
13
8 5
6 5
21 6 [X]
0 1286 363 &6
0 1282 &1 &2 &3 &4
5 1
22 6
8 7
5 3
22 6
8 8
6 2
6 7
3 1
6 8
3 1
8 0
6 0
15
9
00003136